"$<-.setupSNP"<-
function (x, i, value) {
x[[i]]<-value
x
}